home *** CD-ROM | disk | FTP | other *** search
/ Monster Media 1996 #15 / Monster Media Number 15 (Monster Media)(July 1996).ISO / prog_d / sndkey11.zip / SENDKEY.PAS < prev    next >
Pascal/Delphi Source File  |  1996-04-01  |  855b  |  50 lines
  1. unit Sendkey;
  2.  
  3. interface
  4.  
  5. uses WinTypes;
  6.  
  7. const
  8.   SK_BKSP = #8;
  9.   SK_TAB = #9;
  10.   SK_ENTER = #13;
  11.   SK_ESC = #27;
  12.   SK_F1 = #228;
  13.   SK_F2 = #229;
  14.   SK_F3 = #230;
  15.   SK_F4 = #231;
  16.   SK_F5 = #232;
  17.   SK_F6 = #233;
  18.   SK_F7 = #234;
  19.   SK_F8 = #235;
  20.   SK_F9 = #236;
  21.   SK_F10 = #237;
  22.   SK_F11 = #238;
  23.   SK_F12 = #239;
  24.   SK_HOME = #240;
  25.   SK_END = #241;
  26.   SK_UP = #242;
  27.   SK_DOWN = #243;
  28.   SK_LEFT = #244;
  29.   SK_RIGHT = #245;
  30.   SK_PGUP = #246;
  31.   SK_PGDN = #247;
  32.   SK_INS = #248;
  33.   SK_DEL = #249;
  34.   SK_SHIFT_DN = #250;
  35.   SK_SHIFT_UP = #251;
  36.   SK_CTRL_DN = #252;
  37.   SK_CTRL_UP = #253;
  38.   SK_ALT_DN = #254;
  39.   SK_ALT_UP = #255;
  40.  
  41. function SendKeyString(Handle: THandle; const keystring: String): Boolean;
  42.  
  43. implementation
  44.  
  45. function SendKeyString(Handle: THandle; const keystring: String): Boolean;
  46. external 'SNDKEY32';
  47.  
  48.  
  49. end.
  50.